home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 015 / ljfrm01.arc / SCREEN.ASC < prev    next >
Encoding:
Text File  |  1987-09-15  |  3.3 KB  |  65 lines
  1. land                                ;  switch to landscape mode
  2. font re20                           ;  choose a landscape font
  3. char 35,65                          ;  adjust character size for paper
  4.                                     ;    Char is 35 dots wide, 65 high
  5.  
  6. offset -3,-4                        ;  offset to center form
  7. block 11,6,91,8                     ;  define the text window for heading
  8. placetext uc                        ;  Place text in upper center
  9. text /Screen Layout Form/           ;  insert text
  10. placetext ll                        ;  place text in lower left of window
  11. text /Application:/                 ;  insert text
  12. placetext lr                        ;  place text in lower right of window
  13. text /Page ___ of ___/              ;  insert text
  14. placetext cc                        ;  change default to center all text
  15.  
  16. bold 6                              ;  set line thickness to 6 dots
  17. box 11,11,91,36                     ;  draw a box for the border
  18. bold 1                              ;  set line thickness to 1 dot
  19. duph 11,12,80,24,1                  ;  draw 24 horizontal lines, incr by 1
  20. duphoriz 11,12,80,24,1              ;  draw 24 horizontal lines, incr by 1
  21. dupvert 12,11,25,80,1               ;  draw 80 vertical lines, incr by 1
  22. bold 4                              ;  set line thickness to 4 dots
  23. dupvert 21,11,25,7,10               ;  draw 7 vertical lines, incr by 10
  24. duphoriz 11,16,80,4,5               ;  draw 4 horizontal lines, incr by 5
  25. bold 3                              ;  set line thickness to 3 dots
  26. dupvert 16,11,25,8,10               ;  draw 8 vertical lines, incr by 10
  27.  
  28. setgray 10                          ;  set a 10% gray screen fill
  29. box 11,9,91,11                      ;  draw a box for column headings
  30. box 7,11,11,36                      ;  draw a box for row headings
  31. setclear                            ;  set fill pattern to clear
  32.  
  33. box 11,9,21,11                      ;  draw a box for column heading
  34. text /0 - 9/                        ;  insert text
  35. box +10,*,+10,*                     ;  increment box to next position
  36. text /10 - 19/                      ;  insert text
  37. box +10,*,+10,*                     ;
  38. text /20 - 29/                      ;
  39. box +10,*,+10,*                     ;
  40. text /30 - 39/                      ;
  41. box +10,*,+10,*                     ;
  42. text /40 - 49/                      ;
  43. box +10,*,+10,*                     ;
  44. text /50 - 59/                      ;
  45. box +10,*,+10,*                     ;
  46. text /60 - 69/                      ;
  47. box +10,*,+10,*                     ;
  48. text /70 - 79/                      ;
  49.  
  50. box 7,11,11,16                      ;  draw a box for row headings
  51. text /0/-/4/                        ;  insert text in box
  52. box *,+5,*,+5                       ;  increment box to next position
  53. text /5/-/9/                        ;  insert text
  54. box *,+5,*,+5                       ;
  55. text /10/-/14/                      ;
  56. box *,+5,*,+5                       ;
  57. text /15/-/19/                      ;
  58. box *,+5,*,+5                       ;
  59. text /20/-/24/                      ;
  60.                                     ;
  61. block 11,37,91,39
  62. text /This form produced by FormSet, form generating software from/Orbit Enterprises, Inc. (312) 469-3405/
  63.  
  64. print                               ;  print the form
  65.